www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\Model\ComponentLabels\多行多列批量输入框控件\do_edit_mode_label.asp
<%'$start_ext_newDsoft 以下系统生成,勿删! '$newDsoft_label_type$:asp_label$end_newDsoft_label_type$ '$newDsoft_label_name$:$doeditmode$-ComponentLabel-$$end_newDsoft_label_name$ '$newDsoft_label_sql$: $end_newDsoft_label_sql$ '$newDsoft_label_params$:cangsx,多行多列输入框配置参数$end_newDsoft_label_params$ '$newDsoft_label_fenye_num$: $end_newDsoft_label_fenye_num$ '$newDsoft_label_beizhu$:在修改页的处理页里的标签$end_newDsoft_label_beizhu$ '$newDsoft_is_sys_label$:0$end_newDsoft_is_sys_label$ '$newDsoft_other_params$:htmledxa:|htmledxb:$end_newDsoft_other_params$ '$end_ext_newDsoft%><% cvva=split($xxvar$cangsx,"|$aspcpu_f$|") cvva_0=cvva(0) cvva_0_p=split(cvva_0,",") '多行多列批量输入框的初始行数 cvva_0_p_1=cvva_0_p(0) '多行多列批量输入框的最大行数(不填则无限制) cvva_0_p_2=cstr(cvva_0_p(1)&"") '是否允许删除某行 cvva_0_p_3=cstr(cvva_0_p(2)&"") if cvva_0_p_3="" then cvva_0_p_3="0" if cvva_0_p_2="" then cvva_0_p_2="0" cvva_1=cvva(1) cvva_1_p=split(cvva_1,"|$aspcpu_g$|") if trim(cvva_1)="" then pllentt=0 else pllentt=ubound(cvva_1_p)+1 redim liesxx(pllentt+1,4) for plniii=1 to pllentt cvva_1_p_1=cvva_1_p(plniii-1) cvva_1_p_1_p=split(cvva_1_p_1,"|$aspcpu_r1$|") '列参数 cangsxx=cvva_1_p_1_p(0) '列名 lienamex=cvva_1_p_1_p(1) '列类型 pzd_typex=cvva_1_p_1_p(2) '字段次序 pcixux=cvva_1_p_1_p(3) liesxx(plniii-1,0)=cangsxx liesxx(plniii-1,1)=lienamex liesxx(plniii-1,2)=pzd_typex liesxx(plniii-1,3)=pcixux next '进行 列排序 liesxxpl=paixu_a(liesxx,pllentt-1,3,3) %> <% if isnumeric(request("$post$myname$_len_pl"))<>true then hang_ss=0 else hang_ss=clng(request("$post$myname$_len_pl")) end if valueskk="" doeeeee=0 '行 for hang_i=1 to hang_ss '------------ novaaa=1 for plniii2a=1 to pllentt if cstr(request("$post$myname$_l"&cstr(plniii2a)&"_h"&cstr(hang_i))&"")<>"" then novaaa=0 exit for end if next if novaaa=0 then '列 for plniii2=1 to pllentt cangsxx=liesxxpl(plniii2-1,0) lienamex=liesxxpl(plniii2-1,1) pzd_typex=liesxxpl(plniii2-1,2) pcixux=liesxxpl(plniii2-1,3) '-------------------------- '当前行当前列值: values_1=request("$post$myname$_l"&cstr(plniii2)&"_h"&cstr(hang_i)) '---- if clng(pzd_typex)=1 then if values_1="" and (cstr(split(cangsxx,"|$aspcpu_a$|")(2))="0" or cstr(split(cangsxx,"|$aspcpu_a$|")(2))="") then $page$is$vaild$=0 $page$err$msg$=$page$err$msg$&$field$mybmname$&"里第"&cstr(hang_i)&"行第"&cstr(plniii2)&"列 "&"不能为空!\n" end if if cstr(split(cangsxx,"|$aspcpu_a$|")(0)&"")<>"" then if clng(len(cstr(values_1)))>clng(split(cangsxx,"|$aspcpu_a$|")(0)) then $page$is$vaild$=0 $page$err$msg$=$page$err$msg$&$field$mybmname$&"里第"&cstr(hang_i)&"行第"&cstr(plniii2)&"列 "&"最大不能超过"&cstr(split(cangsxx,"|$aspcpu_a$|")(0))&"个字符的长度!\n" end if end if end if '-------- if clng(pzd_typex)=2 then if values_1="" and (cstr(split(cangsxx,"|$aspcpu_a$|")(1))="0" or cstr(split(cangsxx,"|$aspcpu_a$|")(1))="") then $page$is$vaild$=0 $page$err$msg$=$page$err$msg$&$field$mybmname$&"里第"&cstr(hang_i)&"行第"&cstr(plniii2)&"列 "&"不能为空!\n" end if if cstr(values_1)<>"" and isdate(cstr(values_1))<>true then $page$is$vaild$=0 $page$err$msg$=$page$err$msg$&$field$mybmname$&"里第"&cstr(hang_i)&"行第"&cstr(plniii2)&"列 "&"必须为时间的格式,比如2008-9-9 15:32:11或2008-9-9\n" end if end if '--------- if clng(pzd_typex)=3 then if values_1="" and (cstr(split(cangsxx,"|$aspcpu_a$|")(4))="0" or cstr(split(cangsxx,"|$aspcpu_a$|")(4))="") then $page$is$vaild$=0 $page$err$msg$=$page$err$msg$&$field$mybmname$&"里第"&cstr(hang_i)&"行第"&cstr(plniii2)&"列 "&"不能为空!\n" end if if values_1<>"" then if isnumeric(values_1)=true then if cdbl(clng(values_1))<>cdbl(values_1) and (cstr(split(cangsxx,"|$aspcpu_a$|")(2))="0" or cstr(split(cangsxx,"|$aspcpu_a$|")(2))="") then $page$is$vaild$=0 $page$err$msg$=$page$err$msg$&$field$mybmname$&"里第"&cstr(hang_i)&"行第"&cstr(plniii2)&"列 "&"不能为小数!\n" else if cstr(split(cangsxx,"|$aspcpu_a$|")(0)&"")<>"" then if cdbl(values_1)<cdbl(split(cangsxx,"|$aspcpu_a$|")(0)&"") then $page$is$vaild$=0 $page$err$msg$=$page$err$msg$&$field$mybmname$&"里第"&cstr(hang_i)&"行第"&cstr(plniii2)&"列 "&" 不能小于"&cstr(split(cangsxx,"|$aspcpu_a$|")(0)&"")&"!\n" end if end if if cstr(split(cangsxx,"|$aspcpu_a$|")(1)&"")<>"" then if cdbl(values_1)>cdbl(split(cangsxx,"|$aspcpu_a$|")(1)&"") then $page$is$vaild$=0 $page$err$msg$=$page$err$msg$&$field$mybmname$&"里第"&cstr(hang_i)&"行第"&cstr(plniii2)&"列 "&" 不能大于"&cstr(split(cangsxx,"|$aspcpu_a$|")(1)&"")&"!\n" end if end if end if else $page$is$vaild$=0 $page$err$msg$=$page$err$msg$&$field$mybmname$&"里第"&cstr(hang_i)&"行第"&cstr(plniii2)&"列 "&" 只能输入数字!\n" end if end if end if '--------- if clng(pzd_typex)=4 then if values_1="" and (cstr(cangsxx&"")="") then $page$is$vaild$=0 $page$err$msg$=$page$err$msg$&$field$mybmname$&"里第"&cstr(hang_i)&"行第"&cstr(plniii2)&"列 "&"不能为空!\n" end if if values_1<>"" then if IsValidEmail(values_1)<>true then $page$is$vaild$=0 $page$err$msg$=$page$err$msg$&$field$mybmname$&"里第"&cstr(hang_i)&"行第"&cstr(plniii2)&"列 "&" 输入的email的格式错误!\n" end if end if end if '--------- if clng(pzd_typex)=5 then if values_1="" and (cstr(cangsxx&"")="") then $page$is$vaild$=0 $page$err$msg$=$page$err$msg$&$field$mybmname$&"里第"&cstr(hang_i)&"行第"&cstr(plniii2)&"列 "&"不能为空!\n" end if if values_1<>"" then Set RegEx = New RegExp RegEx.IgnoreCase =True RegEx.Pattern = "^[0-9\-]{11,16}$" if RegEx.test(values_1)<>true then $page$is$vaild$=0 $page$err$msg$=$page$err$msg$&$field$mybmname$&"里第"&cstr(hang_i)&"行第"&cstr(plniii2)&"列 "&"的手机号格式错误!\n" end if Set RegEx =nothing end if end if '--------- if clng(pzd_typex)=6 then if values_1="" and (cstr(cangsxx&"")="") then $page$is$vaild$=0 $page$err$msg$=$page$err$msg$&$field$mybmname$&"里第"&cstr(hang_i)&"行第"&cstr(plniii2)&"列 "&"不能为空!\n" end if if values_1<>"" then Set RegEx = New RegExp RegEx.IgnoreCase =True RegEx.Pattern = "(^(\d{11})$|^((\d{7,8})|(\d{4}|\d{3})-(\d{7,8})|(\d{4}|\d{3})-(\d{7,8})-(\d{4}|\d{3}|\d{2}|\d{1})|(\d{7,8})-(\d{4}|\d{3}|\d{2}|\d{1})|(\+{0,1})(\d{2,4})-(\d{4}|\d{3})-(\d{7,8})|(\+{0,1})(\d{2,4})-(\d{4}|\d{3})-(\d{7,8})-(\d{1,4}))$)" if RegEx.test(values_1)<>true then $page$is$vaild$=0 $page$err$msg$=$page$err$msg$&$field$mybmname$&"里第"&cstr(hang_i)&"行第"&cstr(plniii2)&"列 "&"的电话号码格式错误!\n" end if Set RegEx =nothing end if end if '-------------------------- '--------- if clng(pzd_typex)=7 then if values_1="" and (cstr(split(cangsxx,"|$aspcpu_a$|")(2))="0" or cstr(split(cangsxx,"|$aspcpu_a$|")(2))="") then $page$is$vaild$=0 $page$err$msg$=$page$err$msg$&$field$mybmname$&"里第"&cstr(hang_i)&"行第"&cstr(plniii2)&"列 "&"不能为空!\n" end if if cstr(split(cangsxx,"|$aspcpu_a$|")(0)&"")<>"" then if clng(len(cstr(values_1)))>clng(split(cangsxx,"|$aspcpu_a$|")(0)&"") then $page$is$vaild$=0 $page$err$msg$=$page$err$msg$&$field$mybmname$&"里第"&cstr(hang_i)&"行第"&cstr(plniii2)&"列 "&"最大不能超过"&cstr(split(cangsxx,"|$aspcpu_a$|")(0)&"")&"个字符的长度!\n" end if end if if values_1<>"" then Set RegEx = New RegExp RegEx.IgnoreCase =True RegEx.Pattern = "^[a-zA-Z0-9_]{1,}$" if RegEx.test(values_1)<>true then $page$is$vaild$=0 $page$err$msg$=$page$err$msg$&$field$mybmname$&"里第"&cstr(hang_i)&"行第"&cstr(plniii2)&"列 "&" 的格式错误,只能为26个英文字母和数字及_号的组合!\n" end if Set RegEx =nothing end if end if '-------------------------- if clng(pzd_typex)=8 then if values_1="" and (cstr(cangsxx&"")="") then $page$is$vaild$=0 $page$err$msg$=$page$err$msg$&$field$mybmname$&"里第"&cstr(hang_i)&"行第"&cstr(plniii2)&"列 "&"不能为空!\n" end if if values_1<>"" then Set RegEx = New RegExp RegEx.IgnoreCase =True RegEx.Pattern = "http(s)?://([\w-]+\.)+[\w-]+(/[\w-./?%&=]*)?" if RegEx.test(values_1)<>true then $page$is$vaild$=0 $page$err$msg$=$page$err$msg$&$field$mybmname$&"里第"&cstr(hang_i)&"行第"&cstr(plniii2)&"列 "&"的网址格式错误,必须带http://!\n" end if Set RegEx =nothing end if end if '-------------------------- valueskk=valueskk&values_1&"|nd_aspcpu_fenge_pl_lie_do_lie_x|" next if pllentt>=1 then valueskk=left(valueskk,len(valueskk)-len("|nd_aspcpu_fenge_pl_lie_do_lie_x|")) end if '---22 doeeeee=1 valueskk=valueskk&"|nd_aspcpu_fenge_pl_lie_do_hang_x|" end if '---22 next '---22 if doeeeee=1 then valueskk=left(valueskk,len(valueskk)-len("|nd_aspcpu_fenge_pl_lie_do_hang_x|")) end if %> <% $mysave$value$=valueskk end if %>